100 REM BY STEVE MORROW
120 DV=PEEK(186):IFDV<8THENDV=8
125 IFPEEK(251)=255THEN150
130 SYS57812"MADEM.SUB",DV:POKE780,0:POKE781,0:POKE782,192:SYS65493
150 SYS49152:REM MOVE ROM TO RAM
40030 A$="MD":FORI=DVTODV
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"P[207]5120,0:P[207]44,20:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE633,13:POKE198,3:END